home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 90 / CD Actual 90.iso / Software3D / VirtualLight / VLight1.3win32.exe / Examples / Level2 / dispersion.vib < prev    next >
Encoding:
Text File  |  2002-10-07  |  990 b   |  39 lines
  1. // VirtuaLight VIB-Structure
  2.  
  3. ReadArchive "statics.vib"
  4.  
  5. Declare primitive_t = Shader [ PlainSurface [
  6.     Color '0,0,0'
  7.     Kd 0.025
  8.     Ks(0.35,'1,1,1')
  9.     PhongSpecularBRDF 15
  10.     Kt (0.98, 1.4, '1,1,1')
  11.     Kr 0.1
  12.     Caustics 0.6
  13.     Dispersion (1.1, 12)
  14.     Absorption 0.05
  15.     ]
  16. ]
  17.  
  18. Camera [ (1,1,-4),(0,0,0),(0,1,0) FieldOfView 35 Format(320, 240) FrameAspectRatio 4/3 ]
  19.  
  20. Photons(0, 0.5, 0)
  21.  
  22. Background '0.852941,0.752941,0.702941'
  23.  
  24. PointLight [ (-12,70, -45) Intensity '0.975,0.95,0.99'*1.1 ]
  25.  
  26. Declare checker_map = SpectrumOfColors( [0.0, '0.1,0.1,0.1', 0.5, '0.1,0.1,0.1']
  27.                                         [0.5, '1.0000, 0.9412, 0.9608'*0.7, 1.01, '1.0000, 0.9412, 0.9608'*0.7] )
  28.  
  29. Declare BWchecker = Shader [ FunctionalSurface [ Kd 0.85 Color checker_map[Checker] ] ]
  30.  
  31. Shape [ Disk((0,-1.01,0), (0,1,0), 100) BWchecker ]
  32.  
  33. Shape [ Blobby(0.625,
  34.  Sphere((0.75, 0, 0), 1, 1),
  35.  Sphere((-0.375, 0.64952, 0), 1, 1),
  36.  Sphere((-0.375, -0.64952, 0), 1, 1))
  37.  primitive_t
  38. ]
  39.